home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #26 (Nov 87) / Pascal Code Tester / TestStuff < prev   
Text File  |  1987-10-26  |  1KB  |  64 lines
  1. UNIT TestStuff;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         ROM85, TestGlobals;
  7.  
  8.     PROCEDURE theTest;
  9.     PROCEDURE theDrawing;
  10.  
  11. IMPLEMENTATION
  12.  
  13.     PROCEDURE theTest;
  14.         VAR
  15.             str0, str1, str2 : str255;
  16.     BEGIN
  17.         str0 := chr(13);
  18.         SysBeep(1);    (* for now *)
  19.         ShowWindow(JeffsWindow);
  20.         ForeColor(blackColor);
  21.         str1 := 'This is a Test!';
  22.         str2 := 'Put your test code here…';
  23.         TESetSelect(0, 0, JeffsText);
  24.         TESetText(pointer(ORD(@str1) + 1), length(str1), JeffsText);
  25.         TEInsert(pointer(ORD(@str0) + 1), 1, JeffsText);
  26.         TEInsert(pointer(ORD(@str2) + 1), length(str2), JeffsText);
  27.         InvalRect(JeffsWindow^.portRect);
  28.     END;
  29.  
  30.     PROCEDURE theDrawing;
  31.         VAR
  32.             r : rect;
  33.     BEGIN
  34.         PenSize(3, 3);
  35.         PenMode(patCopy);
  36.         PenPat(black);
  37.         ForeColor(redColor);
  38.         BackColor(whiteColor);
  39.         MoveTo(40, 20);
  40.         SetRect(r, 40, 40, 80, 100);
  41.         FrameRect(r);
  42.         OffsetRect(r, 10, 10);
  43.         FrameRect(r);
  44.         ForeColor(blueColor);
  45.         OffsetRect(r, 10, 10);
  46.         FrameRect(r);
  47.         OffsetRect(r, 10, 10);
  48.         FrameRect(r);
  49.         ForeColor(yellowColor);
  50.         SetRect(r, 20, 130, 100, 180);
  51.         FillOval(r, dkGray);
  52.         OffsetRect(r, 15, 15);
  53.         ForeColor(greenColor);
  54.         FillOval(r, gray);
  55.         OffsetRect(r, 15, 15);
  56.         ForeColor(cyanColor);
  57.         FillOval(r, black);
  58.         OffsetRect(r, 15, 15);
  59.         ForeColor(magentaColor);
  60.         FillOval(r, ltGray);
  61.         ForeColor(blackColor);
  62.     END;
  63.  
  64. END.